\ Tom Blakeslee's Editor Debug (DDJ Sep 83) RES16Jan84 : STEP ( --) \ loads one word & displays stack BUFPOS DUP \ starting addr of word R-WORD \ move cursor right one word BUFPOS SWAP - 50 MIN 1- \ length DUP TIB @ + 0 SWAP ! \ nulls to end stream TIB @ SWAP BMOVE \ move word to TIB 0 18 CRTXY \ messages on lower screen BLK @ >R 0 BLK ! \ save and select terminal input >IN @ >R 0 >IN ! INTERPRET 40 SPACES \ clear line for stack display 0 17 CRTXY .S \ show stack R> >IN ! R> BLK ! \ restore 0 MOVE-CURSOR ; --> \ restore cursor position ( Editor Debug description ) EXIT RES16Jan84--The preceding screen can replace screen 89 in Bob White's IBM version of the Laxen screen editor (eg., 115 89 COPY-SCREEN ). --To assign STEP to Function Key5, change BEEP to STEP in the 5th entry of the CASE: statement in screen 90. --Now, any time you are in the Laxen editor, a press of FKey5 will cause the one word, whose first character is under the cursor, to be interpreted as though it were entered at the key- board and followed by a carriage return. The stack contents are continually displayed at the bottom of the screen, as are any error messages. --This makes it easy to debug INTERPRETable code, since an errorresults in the cursor being positioned on the offending word at the same time the error message (or wrong stack contents) appearat the bottom of the screen. NOTE: NonINTERPRETable code must beskipped over using the ordinary cursor controls. t the bottom of the screen. NOTE: NonINTERPRETable code must beskipped over using the ordinary cursor controls.
